home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t3.d64 / obj'load.l < prev    next >
Text File  |  2007-02-28  |  1KB  |  47 lines
  1. 9000 // EMULATE OBJ_LOAD FUNCTION
  2. 9010 // (C)1984  W. LOUIE  05/26/84
  3. 9020 //
  4. 9030 // WALLACE LOUIE
  5. 9040 // 3407  AVENUE 'S'
  6. 9050 // BROOKLYN, N.Y. 11234
  7. 9060 //
  8. 9070 //
  9. 9080 PROC OBJ'LOAD(FILENAME$,DEVICE) CLOSED
  10. 9090 FOR I:=1 TO LEN(FILENAME$) DO
  11. 9100 POKE 827+I,ORD(FILENAME$(I))
  12. 9110 ENDFOR I
  13. 9120 POKE 850,169 //   LDA
  14. 9130 POKE 851,DEVICE
  15. 9140 POKE 852,170 //   TAX
  16. 9150 POKE 853,160 //   LDY #$FF
  17. 9160 POKE 854,255
  18. 9170 POKE 855,32 //    JSR $FFBA
  19. 9180 POKE 856,186
  20. 9190 POKE 857,255
  21. 9200 POKE 858,169 //   LDA
  22. 9210 POKE 859,LEN(FILENAME$)
  23. 9220 POKE 860,162 //   LDX #$3C
  24. 9230 POKE 861,60
  25. 9240 POKE 862,160 //   LDY #$03
  26. 9250 POKE 863,3
  27. 9260 POKE 864,32 //    JSR $FFBD
  28. 9270 POKE 865,189
  29. 9280 POKE 866,255
  30. 9290 POKE 867,169 //   LDA #$00
  31. 9300 POKE 868,0
  32. 9310 POKE 869,162 //   LDX #$FF
  33. 9320 POKE 870,255
  34. 9330 POKE 871,160 //   LDY #$FF
  35. 9340 POKE 872,255
  36. 9350 POKE 873,32 //    JSR $FFD5
  37. 9360 POKE 874,213
  38. 9370 POKE 875,255
  39. 9380 POKE 876,169 //   LDA
  40. 9390 POKE 877,DEVICE
  41. 9400 POKE 878,32 //    JSR $FFC3
  42. 9410 POKE 879,195
  43. 9420 POKE 880,255
  44. 9430 POKE 881,96 //    RTS
  45. 9440 SYS 850
  46. 9450 ENDPROC OBJ'LOAD
  47.